; ORIGINAL: 3dt2.1/examples/render.scm
; $Id: render.scm,v 1.3 1996/10/21 15:59:31 aed Exp $
;- render.scm -----------------------------------------------------
; Create a solid sphere. Create a material and set its color,
; then render the object using default background and lights.
;------------------------------------------------------------------
(define s (solid:sphere (position 0 0 0) 30))           ; Create the entity
(define m (material))                                   ; Create the material
(material:set-color-prop m "color" (color:rgb 0 1 0))   ; Make it green
(entity:set-material s m)                               ; Attach it
(render)                                                ; Display the result
